
/*****************************************
Online Appendix C
*******************************************/


clear
cd "C:\Users\jar68\OneDrive\Ongoing Work\Party Cues and Suspicion Paper\Final Datavserse\Online Appendix C"
log using "appendix_oc.log"
use "pid_idstr_data.dta"
set more off

/******Cleaning*****/
encode treat_policy, gen(trp)
label var idstr "PID Strength"


/*****Model******/
eststo clear
eststo: regress support01 i.treat##c.idstr i.polissue
eststo: regress support01 i.treat##c.idstr if experiment == 1
eststo: regress support01 i.treat##c.idstr i.trp if experiment == 2
eststo: regress support01 i.treat##c.idstr i.trp if experiment == 3

esttab using "pid_idstr.rtf", replace ///
	onecell label nobaselevels b(2) se star(* 0.05 ** 0.01 *** 0.001) ///
	mtitles("Pooled" "Exp. 1" "Exp. 2" "Exp. 3") ///
	title("{\b Table OC1:} Identity Strength Analyses") ///
	addnote("PID ID Strength ranges from 0 to 1.")
	
log close
